home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / PO-N19B.ZIP / NEWS.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1997-02-10  |  3KB  |  248 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER003
  20.     String   STRING001
  21.     String   TSTRING002(4)
  22.     String   STRING004
  23.     String   STRING005
  24.     String   STRING006
  25.     Int      INT001
  26.     Int      INT002
  27.     Int      INT003
  28.     Int      INT004
  29.     Int      INT005
  30.     Int      INT006
  31.     Int      INT007
  32.     Int      INT008
  33.     Int      INT009
  34.     Int      INT010
  35.     Declare  Function FUNCTION001() Integer
  36.     Declare  Procedure PROC001(Integer INTEGER004, Integer INTEGER005, Integer INTEGER006, Integer INTEGER007)
  37.     Declare  Procedure PROC002(Integer INTEGER001, Integer INTEGER002, String STRING003)
  38.     Declare  Procedure PROC003()
  39.     Declare  Procedure PROC004()
  40.  
  41. ;------------------------------------------------------------------------------
  42.  
  43.     PROC004()
  44.     While (Exist(PPEPath() + "news.pcb")) Print "@POFF@@CLS@"
  45.     DispFile PPEPath() + "news.pcb", 1
  46.     Goto LABEL001
  47.     PrintLn "@CLS@■ ansibg not found. aborted."
  48.     Wait
  49.     End
  50.     :LABEL001
  51.     Print "@PON@@X07"
  52.     INT001 = 1
  53.     INT002 = FUNCTION001()
  54.     PROC001(INT004, INT005, INT001, INT003)
  55.     :LABEL002
  56.     While (1) STRING001 = Inkey()
  57.     While ((STRING001 <> "")) While (((STRING001 == "DOWN") || (STRING001 == "2"))) If ((INT001 < INT002 - INT003)) Inc INT001
  58.     PROC001(INT004, INT005, INT001, INT003)
  59.     Goto LABEL003
  60.     While (((STRING001 == "UP") || (STRING001 == "8"))) If ((INT001 > 1)) Dec INT001
  61.     PROC001(INT004, INT005, INT001, INT003)
  62.     Goto LABEL003
  63.     While (((STRING001 == Chr(13)) || (STRING001 == Chr(27)))) PROC003()
  64.     :LABEL003
  65.     Goto LABEL002
  66.     End
  67.  
  68. ;------------------------------------------------------------------------------
  69.  
  70.     Procedure PROC004()
  71.  
  72.     Int      INT007
  73.  
  74.     While (Exist(PPEPath() + "news.cfg")) FOpen 1, PPEPath() + "news.cfg", 0, 0
  75.     FGet 1, INT003
  76.     FGet 1, INT006
  77.     FGet 1, INT005
  78.     FGet 1, INT004
  79.     INT007 = 1
  80.     Goto LABEL004
  81.     INT007 = INT007 + 1
  82.     :LABEL004
  83.     While ((INT007 <= 4)) FGet 1, TSTRING002(INT007)
  84.     FClose 1
  85.     Goto LABEL005
  86.     PrintLn "@CLS@■ no configfile found. aborted."
  87.     Wait
  88.     End
  89.     :LABEL005
  90.  
  91.     EndProc
  92.  
  93.  
  94. ;------------------------------------------------------------------------------
  95.  
  96.     Procedure PROC002(Integer INTEGER001, Integer INTEGER002, String STRING003)
  97.  
  98.     Int      INT008
  99.     String   STRING004
  100.  
  101.     STRING004 = STRING003
  102.     While ((InStr(STRING004, "■") <> 0)) STRING004 = TSTRING002(4) + STRING003
  103.     STRING004 = TSTRING002(1) + STRING003
  104.     INT008 = 0
  105.     Goto LABEL007
  106.     :LABEL006
  107.     INT008 = INT008 + 1
  108.     :LABEL007
  109.     While ((INT008 <= 2)) While ((InStr(STRING004, "@Y0" + String(INT008)) <> 0)) STRING004 = Mid(STRING004, 1, InStr(STRING004, "@Y0" + String(INT008)) - 1) + TSTRING002(INT008 + 1) + Mid(STRING004, InStr(STRING004, "@Y0" + String(INT008)) + 4, Len(STRING004) - InStr(STRING004, "@Y0" + String(INT008)))
  110.     Goto LABEL006
  111.     If (InStr(STRING004, "@CENTER@") <> 0) STRING004 = Trim(STRING004, " ")
  112.     STRING004 = Mid(STRING004, 1, InStr(STRING004, "@CENTER@") - 1) + Mid(STRING004, InStr(STRING004, "@CENTER@") + 8, Len(STRING004) - InStr(STRING004, "@CENTER@"))
  113.     STRING004 = Space((INT006 - Len(StripAtx(STRING004))) / 2) + STRING004
  114.     AnsiPos INTEGER001, INTEGER002
  115.     STRING004 = RTrim(STRING004, " ")
  116.     Print STRING004
  117.  
  118.     EndProc
  119.  
  120.  
  121. ;------------------------------------------------------------------------------
  122.  
  123.     Function FUNCTION001() Integer
  124.  
  125.     Int      INT009
  126.     String   STRING005
  127.     Integer  INTEGER004
  128.  
  129.     INT009 = 0
  130.     STRING005 = ""
  131.     While (Exist(PPEPath() + "news.pcb")) FOpen 1, PPEPath() + "news.txt", 0, 0
  132.     :LABEL008
  133.     While ((InStr(STRING005, "■ END") == 0)) Inc INT009
  134.     FGet 1, STRING005
  135.     Goto LABEL008
  136.     FClose 1
  137.     Goto LABEL009
  138.     PrintLn "@CLS@■ newsfile not found. aborted."
  139.     Wait
  140.     End
  141.     :LABEL009
  142.     FUNCTION001 = INT009
  143.  
  144.     EndFunc
  145.  
  146.  
  147. ;------------------------------------------------------------------------------
  148.  
  149.     Procedure PROC001(Integer INTEGER004, Integer INTEGER005, Integer INTEGER006, Integer INTEGER007)
  150.  
  151.     Int      INT010
  152.     String   STRING006
  153.  
  154.     FOpen 1, PPEPath() + "news.txt", 0, 0
  155.     INT010 = 1
  156.     Goto LABEL010
  157.     INT010 = INT010 + 1
  158.     :LABEL010
  159.     While ((INT010 <= INTEGER006 - 1)) FGet 1, STRING006
  160.     INT010 = 1
  161.     Goto LABEL012
  162.     :LABEL011
  163.     INT010 = INT010 + 1
  164.     :LABEL012
  165.     While ((INT010 <= INTEGER007)) FGet 1, STRING006
  166.     AnsiPos INTEGER004, INTEGER005 + INT010 - 1
  167.     Print Space(INT006)
  168.     PROC002(INTEGER004, INTEGER005 + INT010 - 1, STRING006)
  169.     Goto LABEL011
  170.     FClose 1
  171.  
  172.     EndProc
  173.  
  174.  
  175. ;------------------------------------------------------------------------------
  176.  
  177.     Procedure PROC003()
  178.  
  179.     Print "@X07@CLS@"
  180.  
  181.     EndProc
  182.  
  183.  
  184. ;------------------------------------------------------------------------------
  185. ;
  186. ; Usage report (before postprocessing)
  187. ;
  188. ; ■ Statements used :
  189. ;
  190. ;    4       End
  191. ;    3       Wait
  192. ;    18      Goto 
  193. ;    22      Let 
  194. ;    5       Print 
  195. ;    3       PrintLn 
  196. ;    18      If 
  197. ;    1       DispFile 
  198. ;    3       FOpen 
  199. ;    3       FClose 
  200. ;    8       FGet 
  201. ;    2       Inc 
  202. ;    1       Dec 
  203. ;    2       AnsiPos 
  204. ;    4       EndProc
  205. ;    1       EndFunc
  206. ;
  207. ;
  208. ; ■ Functions used :
  209. ;
  210. ;    1       /
  211. ;    26      +
  212. ;    9       -
  213. ;    7       ==
  214. ;    4       <>
  215. ;    1       <
  216. ;    4       <=
  217. ;    1       >
  218. ;    3       ||
  219. ;    3       Len(
  220. ;    4       Mid()
  221. ;    2       Space()
  222. ;    2       Chr()
  223. ;    10      InStr()
  224. ;    1       RTrim()
  225. ;    1       Trim()
  226. ;    1       StripAtx()
  227. ;    1       Inkey()
  228. ;    4       String()
  229. ;    7       PPEPath()
  230. ;    3       Exist()
  231. ;
  232. ;------------------------------------------------------------------------------
  233. ;
  234. ; Analysis flags : No flag
  235. ;
  236. ;------------------------------------------------------------------------------
  237. ;
  238. ; Postprocessing report
  239. ;
  240. ;    0       For/Next
  241. ;    0       While/EndWhile
  242. ;    0       If/Then or If/Then/Else
  243. ;    0       Select Case
  244. ;
  245. ;------------------------------------------------------------------------------
  246. ;                 AEGiS Corp - Break the routines, code against the machines!
  247. ;------------------------------------------------------------------------------
  248.